home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / gcc / ixemul_src.lha / ixemul-41.0 / library / ix_expunge.c < prev    next >
C/C++ Source or Header  |  1994-08-19  |  2KB  |  66 lines
  1. /*
  2.  *  This file is part of ixemul.library for the Amiga.
  3.  *  Copyright (C) 1991, 1992  Markus M. Wild
  4.  *  Portions Copyright (C) 1994 Rafael W. Luebbert
  5.  *
  6.  *  This library is free software; you can redistribute it and/or
  7.  *  modify it under the terms of the GNU Library General Public
  8.  *  License as published by the Free Software Foundation; either
  9.  *  version 2 of the License, or (at your option) any later version.
  10.  *
  11.  *  This library is distributed in the hope that it will be useful,
  12.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14.  *  Library General Public License for more details.
  15.  *
  16.  *  You should have received a copy of the GNU Library General Public
  17.  *  License along with this library; if not, write to the Free
  18.  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  *
  20.  *  $Id: ix_expunge.c,v 1.9 1994/07/07 15:08:35 rluebbert Exp $
  21.  *
  22.  *  $Log: ix_expunge.c,v $
  23.  *  Revision 1.9  1994/07/07  15:08:35  rluebbert
  24.  *  10*NOFILE -> NOFILE
  25.  *
  26.  *  Revision 1.8  1994/07/07  15:03:19  rluebbert
  27.  *  Removed ttyport dummy routines
  28.  *
  29.  *  Revision 1.7  1994/07/07  12:22:20  rluebbert
  30.  *  *** empty log message ***
  31.  *
  32.  *  Revision 1.6  1994/07/07  11:44:46  rluebbert
  33.  *  *** empty log message ***
  34.  *
  35.  *  Revision 1.5  1994/06/19  15:12:54  rluebbert
  36.  *  *** empty log message ***
  37.  *
  38.  *  Revision 1.3  1992/05/22  01:43:58  mwild
  39.  *  when debugging, check whether buddy allocator clean
  40.  *
  41.  * Revision 1.2  1992/05/17  21:21:56  mwild
  42.  * changed async mp to be global
  43.  *
  44.  * Revision 1.1  1992/05/14  19:55:40  mwild
  45.  * Initial revision
  46.  *
  47.  */
  48.  
  49. #define KERNEL
  50. #include "ixemul.h"
  51.  
  52. extern struct MsgPort *ix_async_mp;
  53. /*extern struct MsgPort *ix_tty_mp;*/
  54.  
  55. void
  56. ix_expunge (struct ixemul_base *ixbase)
  57. {
  58.   if (ix_async_mp) DeleteInterruptPort (ix_async_mp);
  59. /*  if (ix_tty_mp)   DeleteInterruptPort (ix_tty_mp);*/
  60.  
  61.   close_libraries (ixbase->ix_libs);
  62.   
  63. /* Once again, 630 unfreed sizeof(struct file) */
  64.   FreeMem (ixbase->ix_file_tab, NOFILE * sizeof (struct file));
  65. }
  66.